3	K=X
	A=RPOS(1,K)
	B=RPOS(1,K+1)
	R2=A+(B-A)*(X-K)
	IF(IX22.NE.0)RETURN
C GO BACK IF SETTING POSITION WITH 'CP'
	VZ=RN(ISET+9)
	IF(VZ.GE.6.0)GO TO 55
C NEXT FOR VERY SHORT SYLLABLES -- SHIFTS THEM TO LEFT
	K=RN(ISET+2)
CC	A=1.5615+1.-((VZ-2.16)*1.5625)/6.0
CC	R2=R2+(1.+(6.0-VZ)/3.84)*RSTJ2
CCC	A=2.5625-(VZ-2.16)*.2604
	A=2.5625-(VZ-2.16)*.2
	R2=R2+(A-VZ/3.84)*RSTFAC(K)
55	RN(ISET+3)=R2
	IF(KK.GT.0)GO TO 5
C  NEXT FOR PAIRS OF NUMS.


RESTS.F4 *******

7	J5=J5-12
	R7=0
	R6=.42
C  R6 (SIZE) COULD BE CHANGED ****
	R4=RX4+0.8
CC 2/81 	R4=RX4+1.8
	IF(ISTEM.EQ.1)R4=R4+5  
	IF(R4.LT.10.5)R4=10.5
CC 2/81 	IF(R4.LT.11)R4=11
	R3=R3+15*RSTJ2
8	R8=0

NTSB.FAI *******

AB246:	MOVSI 	02,202400     ;	45020	  RZ=2 **** MAKE FERMATA 1 LESS AWAY
;;; 2/81  AB246:	MOVSI 	02,202600     ;	45020	      RZ=3
      	MOVEI 	3,1
      	CAME  	3,STEM  
      	JRST  	.+3
      	MOVSI 	02,204400;	45040	      IF(STEM.EQ.1)RZ=8+R8
;; 2/81   	MOVSI 	02,204440;	45040	      IF(STEM.EQ.1)RZ=9+R8
      	FADR  	02,R8    
      	FMPR  	02,RMINI    ;45060	      R4=R4+RZ*RMINI/RSTJ2
      	FDVR  	02,RSTJ2 
      	FADRB 	02,R4    
	CAML 2,[11.75]	;	45100	      IF(R4.LT.11.75)R4=11.75
;; 2/81 	CAML 2,[12.5]	;	45100	      IF(R4.LT.12.5)R4=12.5
	JRST .+3
      	MOVSI 	02,204570	;11.75
;; 2/81    	MOVSI 	02,204620


MARKZ.F4 *******

30	IF(JREP)CALL MARKS(RA)
	RB=0
	J=J+1
CXXX	IF(RA.GE.30.AND.RA.LE.35)VX(J+1)=0
C THIS  ↑↑↑↑ CATCHES FINGERING NUM.(0-5)  IT WAS READ IN MARKS.



	1 /A2Z/IAZ(5),LEF
	DO 1500 K=1,72
	J=INP(K)
	IF(J.NE.LEF)GO TO 1
CHECK TO SEE IF A NUMBER FOLLOWS 'F' (FINGERING)(F0=FU  F5=FZ)
	L=INP(K+1)
	IF(ISNUM(L).LT.0)GO TO 1
	INP(K+1)=IAZ(NALF(L)+21)
1	IF(J.EQ.ISTAR)GO TO 15  
1500	IF(J.EQ.ISEMI)GO TO 500


22	IF(ML.GE.LEU.AND.ML.LE.LEZ)RA=30+(ML-LEU)/536870912
C  TYPE /2 F0/6 F5/ FOR FINGERING NUMS. 0-5   FU=F0, FZ=F5
	GO TO 18
88	RA=45


MS.F4*******

710	IF(I2.NE.IXX.AND.I2.NE.LBB)GO TO 715 
C TYPE 'NX' TO RESTART WITH NEXT ALPHABETICAL FILE NAME (ONLY 5TH LETTER THOUGH.)
C  'NB' BACKS UP ONE FILE
	IF(X22.NE.0)GO TO 130
C DON'T GO TO NEXT IF IN EDIT MODE

1350	IF(I2.EQ.LRR)GO TO 1360
C NOW TYPE 'PR' TO PRINT PARAMETER LIST
	IF(I2.EQ.LZZ)GO TO 1370
C PIZZ
	R5=42